AMOS-L

It was on the night of 26-Dec-97, when no creatures were stirring, and all was
silent. Suddenly, Jens jumped out from behind a rock and wouldnt stop shouting
about "Inituition.." until I was forced to knock them out:
�-> Hello, GUI help, please..

�-> I've found a great way of doing almost everthing I want to do with
inituition
�-> (AGA screens, and easy msg-boxes). Using a combination of the
GUI-extension
�-> and the OSDevkit.. Ok so far so good. But I can't find a way to get a
�-> 'mouse key' or 'mouse click' response on an inituition screen. I saw that
�-> the there was written a 'paint-program' with the GUI extension, how the
�-> hell (sorry) is it posible to allow the user to point and click on a
'free'
�-> screen with no gadgets ????

�-> If this is part of the 'test-version' of the next GUI, then is it possible
�-> that I could have a copy of the test-version (I'll be sure to send my
�-> response to the author) ???

Here is the ASCII listing for the program. When you look through it, you
will see its a very simple process!!

Mush

'**
'** $VER: Micro Paint 1.0 (09-08-97)
'** Update Release 1.0
'**
'** Simple Paint Package
'**
'** � Copyright 1997 Pietro Ghizzoni - Dairymen Soft
'** FreeWare
'**

Amos To Back

Dim GR(6),CO(1) : Gui Bank 20 : WINS=2 : WIN3=3
Global X,Y,X1,Y1,FUNC,GR(),WIN

Repeat : ID=Gui Asl Screen : Until ID><0 : &J1

Gui Open 2,2 : Gui Ink 1 : Gui Open 3,3 : Gui Ink 1
Change 2,True : Change 3,True
Loke (1,0,,$80080010),Min(Gui Asl Colours,8)

ABOUT : Gui Open 1,1 : CO(0)=1 : CO(1)=1 : FUNC=2 : Gui Set 1,0,0,1 : Gui Gfx
0,3
Restore WR_DATA : For I=1 To 6 : Read GR(I) : Next

Do

GAD=Gui Wait : CO=Gui Code : WIN2=WIN : WIN=Gui Window

If WIN=1

If GAD>0 and GAD<6 : FUNC=GAD : End If

If GAD=0
Gui Set 1,0,0,CO : Gui Ink CO : CO(WIN3-2)=CO

Else If GAD=6
Gui Writing 1 : Gui Clw ,

Else If GAD=-1

Exit

End If

Else

If WIN2> X=Gui Mouse Ux : Y=Gui Mouse Uy : X1=X : Y1=Y : WIN3=WIN

If GAD=-11

If CO=$68

Gui Writing GR(FUNC)

If FUNC=1

Repeat
X=Gui Mouse Ux : Y=Gui Mouse Uy : Gui Plot X,Y : EV=Gui Wait
If EV=-12 : Gui Titles WIN,"Micro Paint Work Window
X:"+Str$(X)+" Y:"+Str$(Y),"" : End If
Until EV=-11

Else If FUNC=2

_LINE

Else If FUNC=3

_BOX

Else If FUNC=4

_ELLIPSE

Else If FUNC=5

Trap Gui Paint X,Y
If Errtrap : _REQ["Error","Not enough memory to perform
operation!"] : End If

End If


End If

Else If GAD=-12

Gui Titles WIN,"Micro Paint Work Window X:"+Str$(X)+" Y:"+Str$(Y),""

Else If GAD=-1

A=Gui Close(WIN) : Dec WINS : Exit If WINS=0

End If

End If

Loop

1 : End

Procedure _LINE

Repeat

If X1<>Gui Mouse Wx or Y1> Gui Draw X,Y To X1,Y1 : X1=Gui Mouse Wx : Y1=Gui Mouse Wy : Gui Draw
X,Y To X1,Y1
Gui Titles WIN,"Micro Paint Work Window X:"+Str$(X1-X)+"
Y:"+Str$(Y1-Y),""
End If

Until Gui Event=-11
Gui Writing 1 : Gui Draw X,Y To X1,Y1 : Gui Titles WIN,"Micro Paint Work
Window",""

End Proc
Procedure _BOX

Repeat

If X1<>Gui Mouse Wx or Y1> Gui Bar X2,Y2 To X3,Y3
X1=Gui Mouse Wx : Y1=Gui Mouse Wy : X2=X : X3=X1 : Y2=Y : Y3=Y1
If X1 If Y1 Gui Bar X2,Y2 To X3,Y3
Gui Titles WIN,"Micro Paint Work Window X:"+Str$(X3-X2)+"
Y:"+Str$(Y3-Y2),""
End If

Until Gui Event=-11
Gui Writing 1 : Gui Bar X2,Y2 To X3,Y3 : Gui Titles WIN,"Micro Paint Work
Window",""

End Proc
Procedure _ELLIPSE
Repeat

If X1<>Gui Mouse Wx or Y1> Gui Ellipse X,Y,Abs(X1-X),Abs(Y1-Y) : X1=Gui Mouse Wx : Y1=Gui Mouse
Wy
Gui Ellipse X,Y,Abs(X1-X),Abs(Y1-Y)
Gui Titles WIN,"Micro Paint Work Window X:"+Str$(X1-X)+"
Y:"+Str$(Y1-Y),""
End If

Until Gui Event=-11
Gui Writing 1 : Gui Ellipse X,Y,Abs(X1-X),Abs(Y1-Y) : Gui Titles WIN,"Micro
Paint Work Window",""

End Proc
Procedure ABOUT

TX=Gui Len("The BEST paint package every made! :)))") : SP=Gui Len(" ")

For I=1 To 9
Read A$ : B$=Space$(Max((TX-Gui Len(A$))/2/SP,0))
M$=M$+B$+A$+B$+Chr$(10)
Next
A=Gui Req("About...",M$,"Oh no... don't click me!")


Data "Micro Paint 1.0"
Data "�1997 Pietro Ghizzoni"
Data "Dairymen Soft"
Data ""
Data "The BEST paint package every made! :)))"
Data ""
Data "Powered by"
Data ""
Data "GUI Extension v1.63"

End Proc
Procedure _REQ[T$,M$]

A=Gui Req(T$,M$,"Ok") : Gui Beep

End Proc

WR_DATA:
Data 1,2,2,2,1,1

Andrew "Mushroom" Kellett
--
Email: Andy Kellett Team *AMOS* + IAPA Team *AMIGA*
alt.religion.amos - AMOS now on usenet! AMOS Mailinglist also mirrored

World's Largest AMOS Homepages - http://www.mushy-pd.demon.co.uk
Official F1 Software Distributor for the USA

Massive FTP site with AMOS/C64 and Mods/Samples + more at
mushy-pd.dyn.ml.org